home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO023.dsk
/
QS5.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
1KB
|
31 lines
0 TEXT : HOME
9 PRINT : PRINT : PRINT
10 PRINT "A 36 pound bag of apples on Earth would weigh ________ pounds on the Moon."
12 PRINT : PRINT
14 PRINT " a) 216"
15 PRINT
16 PRINT " b) 36"
17 PRINT
18 PRINT " c) 6"
19 PRINT
20 PRINT " d) I need a hint."
21 PRINT : PRINT
30 GET KY$
39 HOME : PRINT : PRINT : PRINT : PRINT : PRINT
40 IF KY$ = "c" OR KY$ = "C" THEN GOSUB 110: PRINT CHR$(4);"run friction"
50 IF KY$ = "a" OR KY$ = "A" THEN GOSUB 100
60 IF KY$ = "b" OR KY$ = "B" THEN GOSUB 120
70 IF KY$ = "d" OR KY$ = "D" THEN GOSUB 130
80 IF KY$ < >"a" OR KY$ < >"A" OR KY$ < >"b" OR KY$ < >"B" OR KY$ < >"d" OR KY$ < >"D" THEN GOSUB 140
100 PRINT "Nope! That's a little too much there. Wait and try again."
102 GOSUB 200: GOTO 0: RETURN
110 PRINT "You got it!! An object on the Earth weighs six times more than an object on the moon."
112 GOSUB 200: RETURN
120 PRINT "Nope, the weight will not remain the same. Try again."
122 GOSUB 200: GOTO 0: RETURN
130 PRINT "Objects on Earth will weigh six times more then they would on the Moon."
132 GOSUB 200: GOTO 0: RETURN
140 PRINT "Please enter only A, B, C, or D!!"
142 GOSUB 200: GOTO 0: RETURN
180 END
200 FOR I = 0 TO 3200: NEXT : RETURN